package Response;

use strict;
use CGI qw(:all);

sub new {
    
    # Get the class name
    my $stInvocant = shift(@_);
    my $stClass = ref($stInvocant) || $stInvocant;

    # Create the current instance and bless into class
    my $rSelf = { };
    bless($rSelf,$stClass);

    $rSelf->{view} = shift(@_);
    
    return $rSelf;
}

1;
